#95552
05/21/2001 11:28 AM
|
Joined: May 2001
Posts: 39
Member
|
Member
Joined: May 2001
Posts: 39 |
hallo, hab den who's online hack jetzt schon zum 4ten male installiert und bekomme das teil einfach nicht zum laufen... in der gesamtuebersicht wird gar nichts angezeigt und wenn ich in eine kategorie reingehe dann zeigt er mir den status nur einmal an, beim zweiten mal ist wieder alles weg... fuer hilfe weaere ich sehr dankbar, da ich diesen hack unbedingt zum laufen bekommen muss... http://www.mediacrafts.de/cgi-bin/ultimatebb.cgi thx fersy
|
|
|
#95553
05/21/2001 4:43 PM
|
Joined: Feb 2001
Posts: 956
deutscher Member
|
deutscher Member
Joined: Feb 2001
Posts: 956 |
Zwei mögliche Fehler :
1.) Hast du "Mods Wordlet Install" step 3 kontrolliert ??? Auch wenn da steht das du diesen Schritt überspringen soll's, kontrolliert das trotzdem mal.
2.) In der ubb_forum_summary.cgi gibt es den Befehl "print 'ThisHTML';" dreimal und vor allen dreien must du die Änderung machen.Es hört sich so an als hättes du es nur einmal gemacht und wenn das ubb die Seite aus dem cache holt wird der text nicht ersetzt.Er ist nämlich in deiner Seite vorhanden.
|
|
|
#95554
05/22/2001 4:25 AM
|
Joined: May 2001
Posts: 39
Member
|
Member
Joined: May 2001
Posts: 39 |
also soviel ich weiss hab ich das dreimal eingefuegt... hier der quelltext: # UBB Public Forum Summary Page : Perl Code # get assigned style template! unless (exists($template_match{summary_page})) { $template_match{summary_page} = 1; } require "$vars_config{NonCGIPath}/styles/vars_style_$template_match{summary_page}.cgi"; &set_page_elements; sub forum_summary { local($file_name, $RegisteredMemberLine, @CATEGORIES, @sortedforums); local(*MEM); ##### Who's online? Code Block by Elliott "Borg" Brady local($Online_Wording); local($Online_Details); local($replace); local(@nullit); ($Online_Wording, $Online_Details, @nullit) = &GetOnlineUsers($username); $replace = qq~ ~; ##### / Who's online? Code block by Elliott "Borg" Brady if ($in{category} eq '') { if ( ($vars_misc{use_cache} ne 'no') && (-e "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/summary.html")) { $ThisHTML = &OpenFileAsVar("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/summary.html"); print "$ThisHTML"; $ThisHTML =~ s//$replace/g; exit; } } else { if ($vars_display{CategoriesOnly} ne 'false') { # if this is a category-only view & specific category is selected if (($vars_misc{use_cache} ne 'no') && (-e "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/summary-$in{category}.html") && ($in{category} > 0)) { $ThisHTML = &OpenFileAsVar("$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/summary-$in{category}.html"); print "$ThisHTML"; $ThisHTML =~ s//$replace/g; exit; } } } # page is not available in cache, so we need to create it now # do we have a categories file? unless (-e "$vars_config{NonCGIPath}/categories.file") { require "$vars_config{CGIPath}/ubb_lib_2.cgi"; &AssembleCats; } @CATEGORIES = &OpenFileAsArray("$vars_config{NonCGIPath}/categories.file"); # exceptions if ($in{category} ne '') { $vars_display{CategoriesOnly} = 'false'; } # sort the forums @sortedforums = &SortForums; #returns @sortedforums # get top of page from public_common.pl $ThisHTML = $Header; # show registered members count? if ($vars_display{DisplayMemberTotal} eq 'true') { open (MEM, "$vars_config{MembersPath}/membertotal.cgi"); my $TotalMembers = ; close (MEM); $RegisteredMemberLine = qq~$vars_wordlets{reg_members_total} $TotalMembers~; } if ($vars_display{NewestMemberWelcome} eq 'yes') { my @newbie = &GetNewestMember; if ($newbie[0] ne '') { if ($RegisteredMemberLine ne '') { $RegisteredMemberLine .= ' '; } $RegisteredMemberLine .= qq!$vars_wordlets{new_member_welcome} $newbie[0]!; } }
# get HTML bits for this page require "$vars_config{NonCGIPath}/Templates/public_forum_summary.pl";
# which view is it? if ($vars_display{CategoriesOnly} eq 'true') { &CatOnlyView(@sortedforums); } else { &NormalView(@sortedforums); }
# get bottom of page from public_common.pl $ThisHTML .= $Footer;
if ($in{category} eq '') { $file_name = 'summary'; } else { $file_name = "summary-$in{category}";
unless ($in{category} > 0) { &StandardHTML("$vars_wordlets_err{invalid_category_number}"); }
}
# print to file open(FILE, ">$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/$file_name.html"); &lock; print FILE "$ThisHTML"; &unlock; close(FILE); chmod(0777, "$vars_config{NonCGIPath}/cache-$cache_cookie/ubb_files/summary/$file_name.html");
#display onscreen print "$ThisHTML"; $ThisHTML =~ s//$replace/g; exit; } # end forum_summary
# SUBROUTINES :
sub NormalView { my @forumlist = @_;
local ($each, @thisforuminfo, $x, $GetHour, $GetMinute, $MilHour, $GetMonth, $GetYear, $GetDate, $LastTime, $LastDate, $AMpm, @lasttime, $LatestTime, $TheDate, $forumcategory, $thisforumcategory, $CategoryName, $ExactPath, @data, $TotalTopics, $TotalPosts, @lasttime, $ForumName, $Moderator, $TheDate, $DateWording, @mods, $Breaker, $ForumDesc, $ForumCoded, $JYear, $NewStuffIcon, $LPTime, $LPMonth, $LastPostJulian, $alt_color, $MilHour, $j, $ColSpan, $private, $last_author, $last_subject, $msg_icon, $last_post_number, $msg_icon2);
$ThisHTML .= &PageTop; # some HTML $ThisHTML .= &Normal_Table_Top; # more HTML
undef($forumcategory);
# determine colspan $ColSpan = 3; if ($vars_display{ShowMods} eq 'yes') { $ColSpan++; } if ($vars_display{ForumTotalOption} eq 'Both') { $ColSpan = $ColSpan + 2; } else { $ColSpan++; }
for $each(@forumlist) { undef($msg_icon2); undef($msg_icon);
@thisforuminfo = split(/|^|/, $each); chomp($thisforuminfo[8]); $x = "$thisforuminfo[8]";
$exact_path = "Forum$x"; if ($thisforuminfo[6] eq 'private') { $exact_path .= "/private-$thisforuminfo[7]"; }
undef($GetHour); undef($GetMinute); undef($MilHour); undef($TheDate); undef($LatestTime);
if ($vars_display{CategoryView} eq 'yes') { $thisforumcategory = $thisforuminfo[0];
if ($thisforumcategory ne "$forumcategory") {
$CategoryName = &GetCatName($thisforumcategory); # print category strip $ThisHTML .= &CategoryStrip;
} $forumcategory = "$thisforumcategory"; } # end if categoryview eq yes
# Get Forum Data from lastnumber.file(s) if (-e "$vars_config{NonCGIPath}/$exact_path/lastnumber.file") { @data = &OpenFileAsArray("$vars_config{NonCGIPath}/$exact_path/lastnumber.file"); $last_topic_number = $data[6]; chomp($last_topic_number); $TotalTopics = $data[1]; chomp($TotalTopics); $TotalPosts = $data[2]; chomp($TotalPosts); $last_subject = $data[3]; chomp($last_subject);
if (length($last_subject) > 35) { $last_subject = substr($last_subject, 0, 34); $last_subject .= ' ...'; }
$last_author = $data[4]; chomp($last_author); $msg_icon = $data[5]; chomp($msg_icon); $last_post_number = $data[6]; chomp($last_post_number);
if ($msg_icon ne '') { $msg_icon = qq! !; } else { $msg_icon = qq! !; }
if ($last_author ne '') { $last_author = "($last_author) "; }
# make sure topic has not been deleted-- unless (-e "$vars_config{NonCGIPath}/$exact_path/$last_topic_number.cgi") { $last_author = ''; $last_subject = ''; $msg_icon = ''; }
} else { $TotalTopics = 0; $TotalPosts = 0; $last_author = ''; $last_subject = ''; $msg_icon = ''; $last_post_number = ''; $msg_icon2 = qq! !; }
# don't show last message for private forums! if ($thisforuminfo[6] eq 'private') { $last_author = ''; $last_subject = ''; $msg_icon = ''; $msg_icon2 = qq! !; }
if ($TotalTopics eq '') { $TotalTopics = 0; } if ($TotalPosts eq '') { $TotalPosts = 0; }
if ($TotalTopics > 0) {
@lasttime = &OpenFileAsArray("$vars_config{NonCGIPath}/$exact_path/lasttime.file");
$LastDate = $lasttime[0]; chomp($LastDate); $LastTime = $lasttime[1]; chomp ($LastTime); $LatestTime = &TimeFormat($LastTime);
# grab mil hour, minutes for jtime indicators! ($GetHour, $GetMinute) = split(/:/, $LastTime); ($GetMinute, $AMpm) = split(/ /, $GetMinute); chomp($AMpm); ($GetMonth, $GetDate, $GetYear) = split(/-/, $LastDate); chomp($GetMinute); $GetYear = &Y2K($GetYear); $LastDate = ("$GetMonth" . "-" . "$GetDate" . "-" . "$GetYear"); $TheDate = &DateFormat($LastDate);
$MilTime = &ConvertTo24Hour($GetHour, $GetMinute, $AMpm); ($MilHour, $j) = split(":", $MilTime); } else { $GetMonth = ''; $GetDate= ''; $GetYear = ''; $LatestTime = ''; $TheDate = ''; $msg_icon2 = ''; }
$ForumName = $thisforuminfo[1];
$Moderator = &GetModLine("$x");
$ForumDesc = $thisforuminfo[2]; $ForumDesc =~ s/"/"/g; $ForumName =~ s//\//g; if ($vars_display{ForumDescriptions} eq 'no') { $ForumDesc = ''; }
#default light bulb to off $NewStuffIcon = qq!!;
if ($GetMonth ne '') {
# Compare Last Login Time to Last Post Time.. $LPMonth = $GetMonth; $JYear = &Y2K($GetYear); $LastPostJulian = &jday($LPMonth, $GetDate, $JYear);
$LPTime = ("$MilHour" . "$GetMinute");
$LastPostJulian = ($LastPostJulian + ($LPTime * 0.0001));
} else {
$LastPostJulian = '0'; } # end if/else month ne ''
# what-ifs if ($LatestTime eq '') { $LatestTime = ' '; } if ($Moderator eq '') { $Moderator = ' '; }
if ($thisforuminfo[6] eq 'none&none') { $TheDate = "$vars_wordlets{read_only_forum}"; $LatestTime = ''; $last_author = ''; $last_subject = ''; $msg_icon = ''; if ($TotalTopics > 0) { $msg_icon2 = qq! !; } }
if ($msg_icon2 eq '') { $msg_icon2 = ' '; }
$ThisHTML .= &Normal_Table_Row; # THE HTML TABLE ROW
}
$ThisHTML .= &PageBottom;
} #end NormalView
sub SortForums { #this returns @sortforums, a sorted list based on display requirements
local (%forum_order_list, %forum_name_list, %cat_list, %forum_line_list, @sorted_forums, @sortit, $key, @checkit, @forums, @sortforums, $sort, $cat_type, $j, $k); my @allforums = &OpenForumsFile; $sort = '';
# make sure only open forums are listed foreach $j(@allforums) { chomp($j); @checkit = split(/|^|/, $j); if ($checkit[3] eq 'On') { $forum_order_list{$checkit[8]} = "$checkit[14]"; $forum_name_list{$checkit[8]} = "$checkit[1]"; $forum_line_list{$checkit[8]} = "$j";
# create cat list: if ($checkit[0] > 0) { $cat_list{$checkit[8]} = "$checkit[0]"; }
} # end if forum is ON } # end foreach allforums
# sort forum list: @sorted_forums = sort { $forum_order_list{$a} <=> $forum_order_list{$b} } keys %forum_order_list;
# sort based on requirements -> get @sortforums if ($in{category} ne '') {
foreach (@sorted_forums) { if ($in{category} eq "$cat_list{$_}") { push(@sortforums, $forum_line_list{$_}); } }
} else {
if ($vars_display{CategoryView} eq 'yes') {
# for categories view--
@sortit = sort(@CATEGORIES);
my ($ThisCatNam, $ThisCatNumb);
foreach $cat_type(@sortit) { ($j, $ThisCatNam, $ThisCatNumb) = split(/|^|/, $cat_type); chomp($ThisCatNumb);
foreach $key(@sorted_forums) {
if (exists($cat_list{$key})) { if ($cat_list{$key} eq "$ThisCatNumb") { push(@sortforums, $forum_line_list{$key}); } # end exists } # end cat list key match
} # end foreach sorted forum
} # end foreach cat type
} else {
# for no categories view--
foreach (@sorted_forums) { push(@sortforums, $forum_line_list{$_}); }
} # end if/else category view
} # end if category-specific
return(@sortforums); } # end sort forums
sub GetNewestMember { local($last, @last, @newbie_profile);
if (-e "$vars_config{MembersPath}/last_approved.cgi") { $last = &OpenFileAsVar("$vars_config{MembersPath}/last_approved.cgi"); } else { $last = &OpenFileAsVar("$vars_config{MembersPath}/last_number.cgi"); }
chomp($last); if ($last ne '') { $last = &Do8Digit($last); } if ((-e "$vars_config{MembersPath}/$last.cgi") && ($last ne '')) { @newbie_profile = &OpenProfile($last); chomp($newbie_profile[15]); chomp($newbie_profile[0]); if ($newbie_profile[15] eq '') { $newbie_profile[15] = "$newbie_profile[0]"; } $last[0] = $newbie_profile[15]; $last[1] = $last; } return(@last); }
sub CatOnlyView { local(@cats, $cat_color, $cat_line, $cat_name, $cat_number, $cat_order, $forum_count, $k, @this_match); my @forum_list = @_;
$ThisHTML .= &PageTop; # some HTML $ThisHTML .= &Cat_Table_Top; # more HTML
#sort categories @cats = sort(@CATEGORIES);
# set row color $cat_color = "$vars_style{AltColumnColor1}";
foreach $cat_line(@cats) { ($cat_order, $cat_name, $cat_number) = split(/|^|/, $cat_line); chomp($cat_number); $forum_count = 0;
#sift forums foreach $k(@forum_list) { if ($k =~ /^$cat_number|/) { @this_match = split(/|^|/, $k); if ($this_match[3] eq 'On') { $forum_count++; } } } if ($forum_count > 0) {
$ThisHTML .= &Cat_Row;
} } #each cat $ThisHTML .= &Cat_Page_Bottom; } #end cat only view # DANGER: Do not remove the next line! 1;
|
|
|
#95555
05/22/2001 4:48 AM
|
Joined: May 2001
Posts: 39
Member
|
Member
Joined: May 2001
Posts: 39 |
hab ich auch noch mal alles kontrolliert, soweit ich das erkennen kann ist alles richtig..
|
|
|
#95556
05/22/2001 5:33 AM
|
Joined: Feb 2001
Posts: 956
deutscher Member
|
deutscher Member
Joined: Feb 2001
Posts: 956 |
Also in der Beschreibung von Who is Online steht dort ADD Above = darüber hinzufügen du hast es aber darunter gesetzt !!!
|
|
|
#95557
05/22/2001 6:08 AM
|
Joined: May 2001
Posts: 39
Member
|
Member
Joined: May 2001
Posts: 39 |
yes, das war der fehler !!!!
hab ich wohl irgendwie uebersehen...
vielen dank !!!
fersy
|
|
|
Donate to UBBDev today to help aid in Operational, Server and Script Maintenance, and Development costs.
Please also see our parent organization VNC Web Services if you're in the need of a new UBB.threads Install or Upgrade, Site/Server Migrations, or Security and Coding Services.
|
|
Posts: 70
Joined: January 2007
|
|
Forums63
Topics37,574
Posts293,926
Members13,850
|
Most Online5,166 Sep 15th, 2019
|
|
Currently Online
Topics Created
Posts Made
Users Online
Birthdays
|
|
|
|